home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / amos / eaissu3b.lha / Source_Code / AM_FirstrateEffex_Logo.AMOS / AM_FirstrateEffex_Logo.amosSourceCode next >
AMOS Source Code  |  1995-12-30  |  1KB  |  31 lines
  1. ' ===============================================================
  2. ' FirstRate Effex routine by Asa Margetts (Coded in under 2 mins)
  3. ' ===============================================================
  4.  
  5. ' Where PIC$ is here, enter the path of a LowRes IFF picture:
  6. ' If the picture is not found, it will display me logo!
  7.  
  8. FIRSTRATEEFFEX["PIC$"]
  9.  
  10. Procedure FIRSTRATEEFFEX[PIC$]
  11.    ' Routine By Asa Margetts
  12.    Screen Open 0,320,256,4,Lowres : Curs Off : Flash Off : Paper 0 : Cls : Hide 
  13.    If Exist(PIC$) Then Load Iff PIC$,1 : Screen 0 : Screen To Front : Goto CONTINUE
  14.    Unpack 5 To 1 : Screen 0 : Screen To Front 
  15.    CONTINUE:
  16.    X1=160 : X2=160
  17.    Do 
  18.       Draw X1,135 To X2,135
  19.       Wait Vbl : X1=X1-10 : X2=X2+10
  20.       If X1=0 Then Exit 
  21.    Loop 
  22.    Fade 1,676765679 : Wait 15 : Screen 1 : Screen To Front : Screen Display 1,130,42,320,320
  23.    Y1=150 : Y2=10
  24.    Do 
  25.       Y1=Y1-5 : Y2=Y2+10
  26.       Screen Display 1,130,Y1,320,Y2 : Wait Vbl 
  27.       If Y1=40 Then Screen Display 1,130,42,320,320 : Wait Vbl : Fade 1,676765679 : Wait 15 : Fade 1,0 : Exit 
  28.    Loop 
  29.    Screen Close 0 : Wait 125 : Fade 2 : Wait 30
  30.    ' End of routine 
  31. End Proc